home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)tt.d64 / prnt paddles.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  447b  |  19 lines
  1. 10 C=12*4096
  2. 15 FORJ=0TO63:READA:POKEC+J,A:NEXT
  3. 20 SYSC
  4. 30 P1=PEEK(C+257)
  5. 40 P2=PEEK(C+258)
  6. 50 P3=PEEK(C+259)
  7. 60 P4=PEEK(C+260)
  8. 62 P5=PEEK(C+261)
  9. 64 P6=PEEK(C+262)
  10. 70 PRINT"[147]"P1,P2,P3,P4
  11. 75 PRINT""P5,P6
  12. 80 FORJ=1TO50:NEXT
  13. 90 GOTO20
  14. 100 DATA162,1,120,173,2,220,141,0,193,169,192,141,2,220,169
  15. 110 DATA128,141,0,220,160,128,234,136,16,252,173,25,212,157
  16. 120 DATA1,193,173,26,212,157,3,193,173,0,220,9,128,141,5,193
  17. 130 DATA169,64,202,16,222,173,0,193,141,2,220,173,1,220,141
  18. 140 DATA6,193,88,96
  19.